Public Overrides Sub AddUsersToRoles(ByVal usernames() As String, _
  ByVal roleNames() As String)
   
   For Each roleItem As String In roleNames
      If roleItem = "Administrator" Then
         Throw New _
            ProviderException("Nie masz wystarczajcych uprawnie, aby doda" & _
               " uytkownika do roli Administrator")
      End If
   Next

   MyBase.AddUsersToRoles(usernames, roleNames)
End Sub
